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EDTSSCRINSERT = insert a Line on the screen sf -1984 01:35: AX-11 Bliss-32 V4.0-74 P 1 
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INSERT = insert a Line on the screen' 
NSERT ( $ snaere a ef int 8 on the screen 
pDENT = 'v04-000' SCRINSERT.BLI 
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1 ZTITLE mS DTSSCR 
¢ MODULE EDTSSCRI 
Edit: JBS1022 
BEGIN 
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This module updates the screen information vector to 
reflect the insertion of a Line. 


WWW 


ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
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005 
0 
0 
008 1 ie . 
009 1 i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. x 
ttt is ALL RIGHTS RESERVED. * 
: ® 
Big ie THIS SOFTWARE 1S FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0014 1 i* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0015 1 is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0016 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
01 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
0018 is TRANSFERRED. ‘ 
: ® 
0020 1 i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0021 ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
99 3 ie CORPORATION. * 
i® ® 
0024 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
99 is SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. . 
4 ® 
‘@ ca 
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4 § FACILITY: EDT -- The DEC Standard Editor 
0034 ABSTRACT: 
0035 
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00 
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09 


MODIFIED BY: 


1-001 = Original. DJS 12-Feb-1981. This module was created by 
extracting the routine EDISSSC CAINS ¥ {roe module SCREEN. 

1-005 - Regularize headers. JBS 13-Mar-19 | 
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1- - Repaint when a tine Py inserted pt nal the top of the screen, 
out net. when a | s inserted at the top of the screen. 
-sep- 

hoait a a ix for scrolling regions. mnt epeises -1982 
dify for the new oafre" updater. 
dify to use new 48 bit macros. STS 3 Or- oge=i 

Take out references te L_CUR_SCRLN. SMB i Be og2 

- Reduce parameters to S$ cc NINS. Pies 06- et 

- Change the way SC_FNDREC is used. 982 

- - Change EDT$$G_SCR- CHeD” to EDT$$G_SCR MREBUILD. JBS 09-0ct-1982 
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E RINSERT EDTSSCRINSERT = insert a Line on the screen 18-se Sep-1984 AX=-11 Bliss-32 V4.0-74 Page 2. aad | 
teats =300n 138i 9}: 33: i EDT. SRCISCRINSERT.BLI; . (1) | 


; 8 038 1 ! 1-011 = Set the current screen pointer tt ine g1 ip erted. SMB 10-Oct-1982 

3 9 1! 1- \¢ - Add suspert,"s er NOTRUN RTE mode. 1-0 

; 60 60 1! 1-015 - Update SCRLN on insert. Sup’? F ln. 
; 6 061 1 ! 1-014 = Don't As. ta the screen after deleting a i¥a2 JBS 23-0ct-1982 

; 6 B96 1 ! 1-015 = Don't increment the record number i gene record was replaced 
cor a 065 1! rather than inserted before. JBS 25-0ct- 
; 664 064 1! I- 16 = Check for replacing a multi- 9 record. JBS 26-0ct-198 

3 065 1 ! 1-017 = Fix notruncate bug on sears? hing fo for d -4gyste? lines. SMB 02-Dec-1982 

; 66 066 1! 1- 8 = Remove the edit buffer. - 
; 67 067 1 ! 1-019 = Remove the unused bo AE to EDT 36° CS, wo. JBS 27-Dec-1982 

> 68 068 1 / 1-020 - Support EDT$$G_ANY V CHANGES. JBS 05-Apr 
: 9 89? 1! 1-021 = Worry shout replaci ng oh tes current my, mitt the cursor is on 
; 0 070 1! a cont inuation Line $ 06-Jul-198 

; 71 071 1 ! 1-022 - Maree n EDTSSL_CUR *SCRLN “ER. ar the qurrent Line is outside of 

er ae bors 1! the screen sets base. JBS 25-Jul-198 

aa: 073 1 !-- 
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INSERT = insert a Line on the screen 15-Sep-1984 94:33:13 AX-11 Oh iese3e abe 
-INSLN = mark a Line for insert 14-Sep-1984 12:24: EDT. SRCJISCRINSERT.BLI; 
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ZSBTTL ‘EDTSSSC_INSLN = mark a Line for insert’ 

GLOBAL ROUTINE EDTSSSC_INSLN ( ! Mark a work file line for insert 
REC_ADDR, ! Address of new line 
REC_LEN ! Length of new Line 


) :"NOVALUE = 


* 
FUNCTIONAL DESCRIPTION: 


A Line has been inserted. Mark the Line for insert in the screen 
information structure. 


FORMAL PARAMETERS: 
REC_ADDR the address of the new Line 
REC_LEN the Length of the new Line 
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3 1 

3 (1 1 

te 1 

3; 1 1 

| } 

: 4 1 !+ 

ss 1! 

. a 1: 

'-% 

3 3 1; 

2 1: 

3 7 1! 

= 1! 

‘3 1} 

3 3 1! 

ie 1! 

3; 1 1? 

eS 0694 1 ! IMPLICIT INPUTS: 

; 4 0695 1! 

7 0696 1! EDTSSA_LN_PTR 

3 7 0697 1! EDTS$T_LN_BUF 

. % 698 1! EDTS$A_SCR_BUF 

=. | 344 1! EDTS$A_CUR_BUF 

oo 00 1! 

: ; 44 ! : IMPLICIT OUTPUTS: 

= 0705 1! EDTSSL_CUR_SCRLN 

= the 1! EDTSSA_CSR_SCRPTR 

; : 4 5 : EDTS$$G_ANY_ CHANGES 

2. $709 1 ! ROUTINE VALUE: 

; 133 144 1: 

3; i 709 1! NONE 

; 140 0710 1! 

3 «(141 0711 1°! SIDE EFFECTS: 

3 136 yar ,; 

; «614 87 1! NONE 

3 (144 714 1! 

3: «6145 arte 1 !e< 

; 146 rig 1 

; 4 ort BEGIN 

3; «(149 B18 exes ROUTINE 

; 150 o 0 EDTSSSC_LNINS ! Insert a Line into sceen structure 
: 131 721 EDTS$SC~FNDREC; i Find a record in the data structure 
: 138 758 EXTERNAL 

; 154 726 EDT$S$A_LN_PTR 

; 155 725 EDT$S$L-CUR_SCRLN : LN_BLOCK, ! Current screen Line 

: 156 7 $ EDTSS$T_LN_BuF ! Workfile Line buffer 

3 137 7 EDTSSA~CSR_SCRPTR : REF SCREEN _LINE, ! Pointer to current Line screen info 
: «158 7 8 EDT SSA SCR DUE : REF TBCB_ k, ' Current screen block ; 
; 159 7 EDTSSA_CUR_BUF : REF TBCB_BLOCK, ' Current text buffer control block 
; 160 i EDTS$$G_ANY_ CHANGES; ! 1 = a change has been mode to the screen data structure 


tN ='mark'a tine for Insert ier age 2:32:25 UEDT SeedsERinseRt 0.174 Page 33 


vee-dog ; 


wm 


or line 


C 
CURSOR_LINE, ! Relative c curs 
CURSOR _POS i Cursor pos tion on the. Line 
SCRPTR’: REF CREEN_LINE, i Current Line screen info 
Sti SOR_DELETED, = the cursor Line had- been deleted 
SCRLN i 


om 


Bieptecesent from cursor Line 
_POS; 


Our position relative to the. screen Line 


14 
jy perform this routine if the current buffer is on the screen and the screen data structure exists. 


IF (.EDTSS$A_SCR_BUF NEQA .EDTSSA_CUR_BUF) THEN RETURN; 


'¢ 
_Compute our position relative to the screen Line. 


SCRLN_POS = CMPLNO (EDTSSA_CUR_BUF CTBCB_CUR_LINJ, EDTSS$L_CUR_SCRLN); 


i Get the pereer which corresponds to the current record. The insert will be just 
: before that record. 


SCRPTR = EDTSSSC_FNDREC (.EDTSS$A_LN_PTR - EDTSS$T_LN_BUF, DISP); 


! We will do the insert above the current screen information block. 

i If there is a deleted Line before the current screen information block 
! we will replace it. If that Line is the cursor Line, don't increment 
i. the record number of the cursor Line. 
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$8 Tell the screen updater to search the screen data structure for any changes. 

768 E EDTS$$G_ANY_CHANGES = 1; 

776 See if the cursor Line has already been deleted. 

772 3° ) 
718 4 {¢.EDTSSA_CSR_SCAPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) NEQ 0) 
ae CURSOR_DELETED = 1 

rh8 CURSOR_DELETED = 0; 

778 

779 '¢ 

g : i Now insert just before the current Line. 

i § im EDTSSSC_LNINS (.SCRPTR, .REC_ADDR, .REC_LEN); 

g : If we just replaced the current screen Line, don't increment it's record number. 

f : 

. i ees NOT (.CURSOR_DELETED AND ((.EDTSSA_CSR_SCRPTR CSCR_EDIT_FLAGS] AND SCR_EDIT_DELLN) EQL 0))) 
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+ - insert a Line on the screen 
- mark a Line for 


BEGIN 


END 
ELSE 


BEGIN 


IF (.SCRLN_POS LEQ 0) THEN ADDLINE (NUMBER_ONE, EDTSSL_CUR_SCRLN); 


END; 
END; 
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If the Line to be inserted is in the buffer bein 
the screen data base we must still maintain EDTS$L_CU 
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IF (.SCRLN_POS LEQ 0) THEN ADDLINE (NUMBER_ONE, EDTSS$L_CUR_SCRLN); 


displayed on the screen but outside 
_SCRLN. 


- TITLE 
- IDENT 


! of routine EDTS$SC_INSLN 
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$$A~ “tN aur EDTSSA_ CUR_BUF 


TS$G_ANY_ “CHANGE 
-EDTSCODE ,NOWRT, 


TS$SC_INSLN 


Save iy R3,R4,R5 
SSA_TSR TSR_SCRPTR, RS 
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A_CUR_B 
A-SCR-B 
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EDTSSCRINSERT EDTSSCRINSERT - insert a Line on the scre 18-56 $ep-1984 5: AX-!1 Bliss-32 V4.0-74 Page 7 
ree tts EDT 1$8S¢ IN InLN © Bark @ Line for insert 1 ety 7 9}: 32 MS ED?. sae isen INSERT OLA 4 9° 03) 
9 p 5 Ist RPTR ; 0762 
000000006 90 l D MOVL fe EDTS$G_ANY CHANGES : 0768 
05 oo aj 4 Sore GOTSER ESR SgaPIR. BI bel 
a} ¢ bo ri HOV a. CURSOR. DELETED ; 0775 
: ps 16 5 $: CLRL § CURSOR_DELETED + 0777 
7E 04 A £0 18 6 $: nova REC BADR, =(SP) ; 0782 
000000006 p FB 7 CALLS 3 EDT$$SC LNINS ; 
a8 E BLBC CURSOR. DELETED $ : 0787 
DO MOVL  EDTSS$A CSR_SCRETR, RO : 
10 0D Ad p E1 000 BBC #2, 13%RO)> 10$ ; 
D3 090 7 $: TSTL SCRLN_ 0s + 0791 
09 2 Soooe a : 
53 DS 098 8$ TSTL § SCRLN_POS + 0803 
07 14 00097 BGTR 10$ ; 
FC AG 06 0099 9$: INCL FIRST _LWORD : 
ge BS 9009E BNEW NEXT_WORD 
Be OOAD 10$: int * + 0807 


; Routine Size: 161 bytes, Routine Base: _EDTSCODE + 0000 


238 


0808 1 
239 0809 1 !<BLF/PAGE> 
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SRISGGGI"SE™™ EDTREGEUNGENA “Inner ot ige Ungeteveem. GESRRABEGUGESE  WSrMUABNLeenaEeNt 87 
: 3c ait } END ! of module EDTSSCRINSERT 

: 508 0812 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

;  _EDTSCODE 161 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

; eocceses Syahels coccecee Pages | Processing 

; File Total Loaded Percent Mapped me 

3 _$255$DUA28:CEDT.SRCJEDT.L32;1 377 44 11 40 00:00.2 

3 ~$255$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 


OL ISSECUE CROCE SELD INITIAL GPT IRIZE) /MOTRACEBACK/L ES1, 185: SCRINSERT/OBJ@0B IS: SCRINGERT MSRC$:SCRINSERT.BLI/UPDATE=(ENHS:S 


CRINSERT 
piso: 161 ode. + 0 data bytes 
Fleeced” tHaes 3h2- 
Lines/CPU Min: 
tenenes/CPU-Ain: 1 3 3 


Used: 114 pages 


Compit 
; Compilation Complete 
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